home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / docs / hyper / fgp_1996.lha / FGP_1996 / ScreenModus.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1996-07-29  |  623 b   |  24 lines
  1. /*Screen-Modus für FGP_1996-Guide setzen V1.0 */
  2.  
  3.  
  4. if ~show('L','rexxreqtools.library') then
  5.         call addlib("rexxreqtools.library", 0, -30, 0)
  6.  
  7. NL = '0a'x
  8.  
  9. sm:
  10. screenmode = rtscreenmoderequest( "Wähle einen Screen-Modus aus", ,,
  11.               "rtsc_flags = screqf_sizegads", screen)
  12.  
  13. if screenmode ~= "" then do
  14.     open(dfile, 'fgpguide.prefs', 'w')
  15.     writeln(dfile, screen.width'|'screen.height)
  16.     close(dfile)
  17.  
  18. end
  19.  
  20. if screenmode = "" then do
  21.   call rtezrequest( "Du mußt vor dem ersten Start einen Screen-Modus auswählen" || NL || "bevor das erste mal FGPGuide aufgerufen wird", " OK ", , )
  22. end
  23. call rtfreefilebuffer()
  24.